home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr50
/
pbc22b.zip
/
PBC$BAS.ZIP
/
UNSPLIT.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-01
|
2KB
|
30 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' +----------------------------------------------------------------------+
DECLARE SUB BkScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB DelayV (BYVAL MilliSeconds%)
DECLARE SUB DPutScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
DECLARE SUB Scroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
SUB UnSplit (Scrn%(), Fast%)
L% = LBOUND(Scrn%)
FOR tmp% = 0 TO 24
Part1% = tmp% * 80
Scroll 1, 1, 25, 20, 1
DPutScreen VARSEG(Scrn%(L% + Part1%)), VARPTR(Scrn%(L% + Part1%)), 25, 1, 25, 20, 0, Fast%
Part2% = 1940 - Part1%
BkScroll 1, 21, 25, 40, 1
DPutScreen VARSEG(Scrn%(L% + Part2%)), VARPTR(Scrn%(L% + Part2%)), 1, 21, 1, 40, 0, Fast%
Scroll 1, 41, 25, 60, 1
Part3% = Part1% + 40
DPutScreen VARSEG(Scrn%(L% + Part3%)), VARPTR(Scrn%(L% + Part3%)), 25, 41, 25, 60, 0, Fast%
BkScroll 1, 61, 25, 80, 1
Part4% = 1980 - Part1%
DPutScreen VARSEG(Scrn%(L% + Part4%)), VARPTR(Scrn%(L% + Part4%)), 1, 61, 1, 80, 0, Fast%
DelayV 10
NEXT
END SUB